*!version 24 November 2022
/*Transforms csco15 5 digit (Chinese Classification of Occupations) codes into isco88 4 digit codes. 

Reference:
Freda Yanrong WANG, Raymond WONG & Yujia HOU. (2024) Research on the Occupational Structure Changes in Chinese Society. Bejing:People's Publishing House. ISBN:978-7-01-026546-9.

*/

program define csco15isco88
	version 17
	syntax newvarname, csko(varname numeric)

	quietly gen `varlist'=`csko'
	quietly replace `varlist'=	1100	 if (`csko' == 	10000	)
	quietly replace `varlist'=	1100	 if (`csko' == 	10100	)
	quietly replace `varlist'=	1100	 if (`csko' == 	10200	)
	quietly replace `varlist'=	1100	 if (`csko' == 	10201	)
	quietly replace `varlist'=	1200	 if (`csko' == 	10202	)
	quietly replace `varlist'=	1140	 if (`csko' == 	10203	)
	quietly replace `varlist'=	1100	 if (`csko' == 	10204	)
	quietly replace `varlist'=	1140	 if (`csko' == 	10300	)
	quietly replace `varlist'=	1142	 if (`csko' == 	10400	)
	quietly replace `varlist'=	1142	 if (`csko' == 	10401	)
	quietly replace `varlist'=	1142	 if (`csko' == 	10402	)
	quietly replace `varlist'=	1142	 if (`csko' == 	10403	)
	quietly replace `varlist'=	1142	 if (`csko' == 	10404	)
	quietly replace `varlist'=	1142	 if (`csko' == 	10405	)
	quietly replace `varlist'=	1142	 if (`csko' == 	10406	)
	quietly replace `varlist'=	1143	 if (`csko' == 	10500	)
	quietly replace `varlist'=	1210	 if (`csko' == 	10600	)
	quietly replace `varlist'=	1210	 if (`csko' == 	10601	)
	quietly replace `varlist'=	1210	 if (`csko' == 	10602	)
	quietly replace `varlist'=	2000	 if (`csko' == 	20000	)
	quietly replace `varlist'=	2100	 if (`csko' == 	20100	)
	quietly replace `varlist'=	2443	 if (`csko' == 	20101	)
	quietly replace `varlist'=	2441	 if (`csko' == 	20102	)
	quietly replace `varlist'=	2442	 if (`csko' == 	20103	)
	quietly replace `varlist'=	2442	 if (`csko' == 	20104	)
	quietly replace `varlist'=	2443	 if (`csko' == 	20105	)
	quietly replace `varlist'=	2213	 if (`csko' == 	20107	)
	quietly replace `varlist'=	2211	 if (`csko' == 	20108	)
	quietly replace `varlist'=	2432	 if (`csko' == 	20109	)
	quietly replace `varlist'=	2100	 if (`csko' == 	20111	)
	quietly replace `varlist'=	2440	 if (`csko' == 	20112	)
	quietly replace `varlist'=	2121	 if (`csko' == 	20113	)
	quietly replace `varlist'=	2100	 if (`csko' == 	20114	)
	quietly replace `varlist'=	2100	 if (`csko' == 	20115	)
	quietly replace `varlist'=	2100	 if (`csko' == 	20199	)
	quietly replace `varlist'=	2140	 if (`csko' == 	20200	)
	quietly replace `varlist'=	2147	 if (`csko' == 	20201	)
	quietly replace `varlist'=	2148	 if (`csko' == 	20202	)
	quietly replace `varlist'=	2147	 if (`csko' == 	20203	)
	quietly replace `varlist'=	2147	 if (`csko' == 	20204	)
	quietly replace `varlist'=	2147	 if (`csko' == 	20205	)
	quietly replace `varlist'=	2146	 if (`csko' == 	20206	)
	quietly replace `varlist'=	2145	 if (`csko' == 	20207	)
	quietly replace `varlist'=	2145	 if (`csko' == 	20208	)
	quietly replace `varlist'=	2144	 if (`csko' == 	20209	)
	quietly replace `varlist'=	2144	 if (`csko' == 	20210	)
	quietly replace `varlist'=	2143	 if (`csko' == 	20211	)
	quietly replace `varlist'=	2149	 if (`csko' == 	20212	)
	quietly replace `varlist'=	2149	 if (`csko' == 	20213	)
	quietly replace `varlist'=	2144	 if (`csko' == 	20214	)
	quietly replace `varlist'=	2141	 if (`csko' == 	20215	)
	quietly replace `varlist'=	2141	 if (`csko' == 	20216	)
	quietly replace `varlist'=	2141	 if (`csko' == 	20217	)
	quietly replace `varlist'=	2141	 if (`csko' == 	20218	)
	quietly replace `varlist'=	2142	 if (`csko' == 	20219	)
	quietly replace `varlist'=	2213	 if (`csko' == 	20220	)
	quietly replace `varlist'=	2145	 if (`csko' == 	20221	)
	quietly replace `varlist'=	2144	 if (`csko' == 	20222	)
	quietly replace `varlist'=	2149	 if (`csko' == 	20223	)
	quietly replace `varlist'=	2149	 if (`csko' == 	20224	)
	quietly replace `varlist'=	2112	 if (`csko' == 	20225	)
	quietly replace `varlist'=	2114	 if (`csko' == 	20226	)
	quietly replace `varlist'=	2149	 if (`csko' == 	20227	)
	quietly replace `varlist'=	2149	 if (`csko' == 	20228	)
	quietly replace `varlist'=	2149	 if (`csko' == 	20229	)
	quietly replace `varlist'=	2149	 if (`csko' == 	20230	)
	quietly replace `varlist'=	2149	 if (`csko' == 	20231	)
	quietly replace `varlist'=	2149	 if (`csko' == 	20232	)
	quietly replace `varlist'=	2149	 if (`csko' == 	20233	)
	quietly replace `varlist'=	2149	 if (`csko' == 	20234	)
	quietly replace `varlist'=	2149	 if (`csko' == 	20235	)
	quietly replace `varlist'=	2149	 if (`csko' == 	20236	)
	quietly replace `varlist'=	2149	 if (`csko' == 	20237	)
	quietly replace `varlist'=	2145	 if (`csko' == 	20290	)
	quietly replace `varlist'=	2145	 if (`csko' == 	20291	)
	quietly replace `varlist'=	2149	 if (`csko' == 	20299	)
	quietly replace `varlist'=	2213	 if (`csko' == 	20300	)
	quietly replace `varlist'=	2213	 if (`csko' == 	20301	)
	quietly replace `varlist'=	2213	 if (`csko' == 	20302	)
	quietly replace `varlist'=	2213	 if (`csko' == 	20303	)
	quietly replace `varlist'=	2213	 if (`csko' == 	20304	)
	quietly replace `varlist'=	2213	 if (`csko' == 	20305	)
	quietly replace `varlist'=	2223	 if (`csko' == 	20306	)
	quietly replace `varlist'=	2213	 if (`csko' == 	20307	)
	quietly replace `varlist'=	2149	 if (`csko' == 	20308	)
	quietly replace `varlist'=	2213	 if (`csko' == 	20309	)
	quietly replace `varlist'=	2213	 if (`csko' == 	20399	)
	quietly replace `varlist'=	3140	 if (`csko' == 	20400	)
	quietly replace `varlist'=	3143	 if (`csko' == 	20401	)
	quietly replace `varlist'=	3142	 if (`csko' == 	20402	)
	quietly replace `varlist'=	3140	 if (`csko' == 	20499	)
	quietly replace `varlist'=	2220	 if (`csko' == 	20500	)
	quietly replace `varlist'=	2221	 if (`csko' == 	20501	)
	quietly replace `varlist'=	2220	 if (`csko' == 	20502	)
	quietly replace `varlist'=	2221	 if (`csko' == 	20503	)
	quietly replace `varlist'=	2220	 if (`csko' == 	20504	)
	quietly replace `varlist'=	2221	 if (`csko' == 	20505	)
	quietly replace `varlist'=	2224	 if (`csko' == 	20506	)
	quietly replace `varlist'=	3220	 if (`csko' == 	20507	)
	quietly replace `varlist'=	2230	 if (`csko' == 	20508	)
	quietly replace `varlist'=	3220	 if (`csko' == 	20509	)
	quietly replace `varlist'=	3220	 if (`csko' == 	20599	)
	quietly replace `varlist'=	2410	 if (`csko' == 	20600	)
	quietly replace `varlist'=	2441	 if (`csko' == 	20601	)
	quietly replace `varlist'=	2122	 if (`csko' == 	20602	)
	quietly replace `varlist'=	2411	 if (`csko' == 	20603	)
	quietly replace `varlist'=	2411	 if (`csko' == 	20604	)
	quietly replace `varlist'=	2410	 if (`csko' == 	20605	)
	quietly replace `varlist'=	2410	 if (`csko' == 	20606	)
	quietly replace `varlist'=	3421	 if (`csko' == 	20607	)
	quietly replace `varlist'=	2410	 if (`csko' == 	20608	)
	quietly replace `varlist'=	3419	 if (`csko' == 	20609	)
	quietly replace `varlist'=	3412	 if (`csko' == 	20610	)
	quietly replace `varlist'=	3411	 if (`csko' == 	20611	)
	quietly replace `varlist'=	2410	 if (`csko' == 	20612	)
	quietly replace `varlist'=	2410	 if (`csko' == 	20699	)
	quietly replace `varlist'=	2420	 if (`csko' == 	20700	)
	quietly replace `varlist'=	2422	 if (`csko' == 	20701	)
	quietly replace `varlist'=	2421	 if (`csko' == 	20702	)
	quietly replace `varlist'=	2421	 if (`csko' == 	20703	)
	quietly replace `varlist'=	2429	 if (`csko' == 	20704	)
	quietly replace `varlist'=	2429	 if (`csko' == 	20705	)
	quietly replace `varlist'=	2429	 if (`csko' == 	20706	)
	quietly replace `varlist'=	2429	 if (`csko' == 	20707	)
	quietly replace `varlist'=	2460	 if (`csko' == 	20708	)
	quietly replace `varlist'=	5132	 if (`csko' == 	20709	)
	quietly replace `varlist'=	2429	 if (`csko' == 	20799	)
	quietly replace `varlist'=	2300	 if (`csko' == 	20800	)
	quietly replace `varlist'=	2310	 if (`csko' == 	20801	)
	quietly replace `varlist'=	2320	 if (`csko' == 	20802	)
	quietly replace `varlist'=	2320	 if (`csko' == 	20803	)
	quietly replace `varlist'=	2332	 if (`csko' == 	20804	)
	quietly replace `varlist'=	2340	 if (`csko' == 	20805	)
	quietly replace `varlist'=	2359	 if (`csko' == 	20899	)
	quietly replace `varlist'=	2450	 if (`csko' == 	20900	)
	quietly replace `varlist'=	2451	 if (`csko' == 	20901	)
	quietly replace `varlist'=	2453	 if (`csko' == 	20902	)
	quietly replace `varlist'=	2455	 if (`csko' == 	20903	)
	quietly replace `varlist'=	2450	 if (`csko' == 	20904	)
	quietly replace `varlist'=	2452	 if (`csko' == 	20905	)
	quietly replace `varlist'=	2452	 if (`csko' == 	20906	)
	quietly replace `varlist'=	3475	 if (`csko' == 	20907	)
	quietly replace `varlist'=	2450	 if (`csko' == 	20999	)
	quietly replace `varlist'=	2450	 if (`csko' == 	21000	)
	quietly replace `varlist'=	2451	 if (`csko' == 	21001	)
	quietly replace `varlist'=	2451	 if (`csko' == 	21002	)
	quietly replace `varlist'=	4143	 if (`csko' == 	21003	)
	quietly replace `varlist'=	3472	 if (`csko' == 	21004	)
	quietly replace `varlist'=	2444	 if (`csko' == 	21005	)
	quietly replace `varlist'=	2431	 if (`csko' == 	21006	)
	quietly replace `varlist'=	3470	 if (`csko' == 	21007	)
	quietly replace `varlist'=	2430	 if (`csko' == 	21008	)
	quietly replace `varlist'=	3470	 if (`csko' == 	21099	)
	quietly replace `varlist'=	2400	 if (`csko' == 	29900	)
	quietly replace `varlist'=	4000	 if (`csko' == 	30000	)
	quietly replace `varlist'=	4110	 if (`csko' == 	30100	)
	quietly replace `varlist'=	3430	 if (`csko' == 	30101	)
	quietly replace `varlist'=	4110	 if (`csko' == 	30102	)
	quietly replace `varlist'=	4110	 if (`csko' == 	30103	)
	quietly replace `varlist'=	4110	 if (`csko' == 	30199	)
	quietly replace `varlist'=	5160	 if (`csko' == 	30200	)
	quietly replace `varlist'=	5162	 if (`csko' == 	30201	)
	quietly replace `varlist'=	5169	 if (`csko' == 	30202	)
	quietly replace `varlist'=	5161	 if (`csko' == 	30203	)
	quietly replace `varlist'=	5169	 if (`csko' == 	30299	)
	quietly replace `varlist'=	4190	 if (`csko' == 	39900	)
	quietly replace `varlist'=	5000	 if (`csko' == 	40000	)
	quietly replace `varlist'=	5220	 if (`csko' == 	40100	)
	quietly replace `varlist'=	3416	 if (`csko' == 	40101	)
	quietly replace `varlist'=	5220	 if (`csko' == 	40102	)
	quietly replace `varlist'=	5200	 if (`csko' == 	40103	)
	quietly replace `varlist'=	9161	 if (`csko' == 	40104	)
	quietly replace `varlist'=	3439	 if (`csko' == 	40105	)
	quietly replace `varlist'=	5200	 if (`csko' == 	40199	)
	quietly replace `varlist'=	5110	 if (`csko' == 	40200	)
	quietly replace `varlist'=	5110	 if (`csko' == 	40201	)
	quietly replace `varlist'=	5110	 if (`csko' == 	40202	)
	quietly replace `varlist'=	5110	 if (`csko' == 	40203	)
	quietly replace `varlist'=	5110	 if (`csko' == 	40204	)
	quietly replace `varlist'=	5110	 if (`csko' == 	40205	)
	quietly replace `varlist'=	4130	 if (`csko' == 	40206	)
	quietly replace `varlist'=	4142	 if (`csko' == 	40207	)
	quietly replace `varlist'=	5110	 if (`csko' == 	40299	)
	quietly replace `varlist'=	5120	 if (`csko' == 	40300	)
	quietly replace `varlist'=	5120	 if (`csko' == 	40301	)
	quietly replace `varlist'=	5120	 if (`csko' == 	40302	)
	quietly replace `varlist'=	5120	 if (`csko' == 	40399	)
	quietly replace `varlist'=	4210	 if (`csko' == 	40400	)
	quietly replace `varlist'=	4210	 if (`csko' == 	40401	)
	quietly replace `varlist'=	4210	 if (`csko' == 	40402	)
	quietly replace `varlist'=	2144	 if (`csko' == 	40403	)
	quietly replace `varlist'=	4210	 if (`csko' == 	40404	)
	quietly replace `varlist'=	4210	 if (`csko' == 	40405	)
	quietly replace `varlist'=	4210	 if (`csko' == 	40499	)
	quietly replace `varlist'=	3410	 if (`csko' == 	40500	)
	quietly replace `varlist'=	3419	 if (`csko' == 	40501	)
	quietly replace `varlist'=	3411	 if (`csko' == 	40502	)
	quietly replace `varlist'=	3419	 if (`csko' == 	40503	)
	quietly replace `varlist'=	3412	 if (`csko' == 	40504	)
	quietly replace `varlist'=	3417	 if (`csko' == 	40505	)
	quietly replace `varlist'=	3419	 if (`csko' == 	40506	)
	quietly replace `varlist'=	3419	 if (`csko' == 	40599	)
	quietly replace `varlist'=	5132	 if (`csko' == 	40600	)
	quietly replace `varlist'=	5121	 if (`csko' == 	40601	)
	quietly replace `varlist'=	5132	 if (`csko' == 	40602	)
	quietly replace `varlist'=	5132	 if (`csko' == 	40603	)
	quietly replace `varlist'=	3417	 if (`csko' == 	40700	)
	quietly replace `varlist'=	3417	 if (`csko' == 	40701	)
	quietly replace `varlist'=	2410	 if (`csko' == 	40702	)
	quietly replace `varlist'=	2410	 if (`csko' == 	40703	)
	quietly replace `varlist'=	5111	 if (`csko' == 	40704	)
	quietly replace `varlist'=	5169	 if (`csko' == 	40705	)
	quietly replace `varlist'=	3439	 if (`csko' == 	40706	)
	quietly replace `varlist'=	5000	 if (`csko' == 	40707	)
	quietly replace `varlist'=	3417	 if (`csko' == 	40799	)
	quietly replace `varlist'=	5000	 if (`csko' == 	40800	)
	quietly replace `varlist'=	5000	 if (`csko' == 	40801	)
	quietly replace `varlist'=	5000	 if (`csko' == 	40802	)
	quietly replace `varlist'=	5000	 if (`csko' == 	40803	)
	quietly replace `varlist'=	5000	 if (`csko' == 	40804	)
	quietly replace `varlist'=	3150	 if (`csko' == 	40805	)
	quietly replace `varlist'=	3150	 if (`csko' == 	40806	)
	quietly replace `varlist'=	3117	 if (`csko' == 	40807	)
	quietly replace `varlist'=	5000	 if (`csko' == 	40808	)
	quietly replace `varlist'=	3131	 if (`csko' == 	40809	)
	quietly replace `varlist'=	5000	 if (`csko' == 	40899	)
	quietly replace `varlist'=	6140	 if (`csko' == 	40900	)
	quietly replace `varlist'=	9312	 if (`csko' == 	40901	)
	quietly replace `varlist'=	9312	 if (`csko' == 	40902	)
	quietly replace `varlist'=	9312	 if (`csko' == 	40903	)
	quietly replace `varlist'=	9312	 if (`csko' == 	40904	)
	quietly replace `varlist'=	6130	 if (`csko' == 	40905	)
	quietly replace `varlist'=	6130	 if (`csko' == 	40906	)
	quietly replace `varlist'=	9161	 if (`csko' == 	40907	)
	quietly replace `varlist'=	9162	 if (`csko' == 	40908	)
	quietly replace `varlist'=	6130	 if (`csko' == 	40909	)
	quietly replace `varlist'=	6130	 if (`csko' == 	40910	)
	quietly replace `varlist'=	9312	 if (`csko' == 	40999	)
	quietly replace `varlist'=	5132	 if (`csko' == 	41000	)
	quietly replace `varlist'=	5130	 if (`csko' == 	41001	)
	quietly replace `varlist'=	5149	 if (`csko' == 	41002	)
	quietly replace `varlist'=	5141	 if (`csko' == 	41003	)
	quietly replace `varlist'=	5132	 if (`csko' == 	41004	)
	quietly replace `varlist'=	5132	 if (`csko' == 	41005	)
	quietly replace `varlist'=	5143	 if (`csko' == 	41006	)
	quietly replace `varlist'=	5132	 if (`csko' == 	41007	)
	quietly replace `varlist'=	5132	 if (`csko' == 	41099	)
	quietly replace `varlist'=	5121	 if (`csko' == 	41100	)
	quietly replace `varlist'=	7240	 if (`csko' == 	41101	)
	quietly replace `varlist'=	5121	 if (`csko' == 	41102	)
	quietly replace `varlist'=	5121	 if (`csko' == 	41103	)
	quietly replace `varlist'=	5121	 if (`csko' == 	41199	)
	quietly replace `varlist'=	7241	 if (`csko' == 	41200	)
	quietly replace `varlist'=	7241	 if (`csko' == 	41201	)
	quietly replace `varlist'=	7241	 if (`csko' == 	41202	)
	quietly replace `varlist'=	7241	 if (`csko' == 	41203	)
	quietly replace `varlist'=	7241	 if (`csko' == 	41204	)
	quietly replace `varlist'=	7240	 if (`csko' == 	41205	)
	quietly replace `varlist'=	7300	 if (`csko' == 	41206	)
	quietly replace `varlist'=	7230	 if (`csko' == 	41299	)
	quietly replace `varlist'=	5132	 if (`csko' == 	41300	)
	quietly replace `varlist'=	5132	 if (`csko' == 	41301	)
	quietly replace `varlist'=	3130	 if (`csko' == 	41302	)
	quietly replace `varlist'=	3110	 if (`csko' == 	41303	)
	quietly replace `varlist'=	5132	 if (`csko' == 	41304	)
	quietly replace `varlist'=	2450	 if (`csko' == 	41305	)
	quietly replace `varlist'=	2450	 if (`csko' == 	41399	)
	quietly replace `varlist'=	5132	 if (`csko' == 	41400	)
	quietly replace `varlist'=	5132	 if (`csko' == 	41401	)
	quietly replace `varlist'=	5132	 if (`csko' == 	41402	)
	quietly replace `varlist'=	3224	 if (`csko' == 	41403	)
	quietly replace `varlist'=	5132	 if (`csko' == 	41404	)
	quietly replace `varlist'=	5132	 if (`csko' == 	41499	)
	quietly replace `varlist'=	5000	 if (`csko' == 	49900	)
	quietly replace `varlist'=	6100	 if (`csko' == 	50000	)
	quietly replace `varlist'=	6110	 if (`csko' == 	50100	)
	quietly replace `varlist'=	3212	 if (`csko' == 	50101	)
	quietly replace `varlist'=	6111	 if (`csko' == 	50102	)
	quietly replace `varlist'=	3212	 if (`csko' == 	50199	)
	quietly replace `varlist'=	6141	 if (`csko' == 	50200	)
	quietly replace `varlist'=	6141	 if (`csko' == 	50201	)
	quietly replace `varlist'=	6141	 if (`csko' == 	50202	)
	quietly replace `varlist'=	6141	 if (`csko' == 	50203	)
	quietly replace `varlist'=	6141	 if (`csko' == 	50204	)
	quietly replace `varlist'=	6130	 if (`csko' == 	50299	)
	quietly replace `varlist'=	6120	 if (`csko' == 	50300	)
	quietly replace `varlist'=	6121	 if (`csko' == 	50301	)
	quietly replace `varlist'=	6121	 if (`csko' == 	50302	)
	quietly replace `varlist'=	6123	 if (`csko' == 	50303	)
	quietly replace `varlist'=	6129	 if (`csko' == 	50399	)
	quietly replace `varlist'=	6150	 if (`csko' == 	50400	)
	quietly replace `varlist'=	6151	 if (`csko' == 	50401	)
	quietly replace `varlist'=	6151	 if (`csko' == 	50402	)
	quietly replace `varlist'=	6152	 if (`csko' == 	50403	)
	quietly replace `varlist'=	6150	 if (`csko' == 	50499	)
	quietly replace `varlist'=	6100	 if (`csko' == 	50500	)
	quietly replace `varlist'=	6100	 if (`csko' == 	50501	)
	quietly replace `varlist'=	3227	 if (`csko' == 	50502	)
	quietly replace `varlist'=	8163	 if (`csko' == 	50503	)
	quietly replace `varlist'=	9162	 if (`csko' == 	50504	)
	quietly replace `varlist'=	8331	 if (`csko' == 	50505	)
	quietly replace `varlist'=	7410	 if (`csko' == 	50506	)
	quietly replace `varlist'=	6100	 if (`csko' == 	50599	)
	quietly replace `varlist'=	6100	 if (`csko' == 	59900	)
	quietly replace `varlist'=	6100	 if (`csko' == 	60000	)
	quietly replace `varlist'=	7410	 if (`csko' == 	60100	)
	quietly replace `varlist'=	7410	 if (`csko' == 	60101	)
	quietly replace `varlist'=	7410	 if (`csko' == 	60102	)
	quietly replace `varlist'=	7412	 if (`csko' == 	60103	)
	quietly replace `varlist'=	7410	 if (`csko' == 	60104	)
	quietly replace `varlist'=	8271	 if (`csko' == 	60105	)
	quietly replace `varlist'=	7410	 if (`csko' == 	60106	)
	quietly replace `varlist'=	7410	 if (`csko' == 	60107	)
	quietly replace `varlist'=	7410	 if (`csko' == 	60199	)
	quietly replace `varlist'=	7410	 if (`csko' == 	60200	)
	quietly replace `varlist'=	7410	 if (`csko' == 	60201	)
	quietly replace `varlist'=	7412	 if (`csko' == 	60202	)
	quietly replace `varlist'=	7413	 if (`csko' == 	60203	)
	quietly replace `varlist'=	7413	 if (`csko' == 	60204	)
	quietly replace `varlist'=	7410	 if (`csko' == 	60205	)
	quietly replace `varlist'=	7410	 if (`csko' == 	60206	)
	quietly replace `varlist'=	7410	 if (`csko' == 	60299	)
	quietly replace `varlist'=	7416	 if (`csko' == 	60300	)
	quietly replace `varlist'=	7416	 if (`csko' == 	60301	)
	quietly replace `varlist'=	7416	 if (`csko' == 	60302	)
	quietly replace `varlist'=	7416	 if (`csko' == 	60303	)
	quietly replace `varlist'=	7416	 if (`csko' == 	60399	)
	quietly replace `varlist'=	7430	 if (`csko' == 	60400	)
	quietly replace `varlist'=	7431	 if (`csko' == 	60401	)
	quietly replace `varlist'=	7432	 if (`csko' == 	60402	)
	quietly replace `varlist'=	7430	 if (`csko' == 	60403	)
	quietly replace `varlist'=	7432	 if (`csko' == 	60404	)
	quietly replace `varlist'=	7432	 if (`csko' == 	60405	)
	quietly replace `varlist'=	7432	 if (`csko' == 	60406	)
	quietly replace `varlist'=	7432	 if (`csko' == 	60499	)
	quietly replace `varlist'=	7430	 if (`csko' == 	60500	)
	quietly replace `varlist'=	7433	 if (`csko' == 	60501	)
	quietly replace `varlist'=	7434	 if (`csko' == 	60502	)
	quietly replace `varlist'=	7430	 if (`csko' == 	60503	)
	quietly replace `varlist'=	7433	 if (`csko' == 	60504	)
	quietly replace `varlist'=	7430	 if (`csko' == 	60599	)
	quietly replace `varlist'=	8140	 if (`csko' == 	60600	)
	quietly replace `varlist'=	8141	 if (`csko' == 	60601	)
	quietly replace `varlist'=	8141	 if (`csko' == 	60602	)
	quietly replace `varlist'=	8240	 if (`csko' == 	60603	)
	quietly replace `varlist'=	8140	 if (`csko' == 	60604	)
	quietly replace `varlist'=	8140	 if (`csko' == 	60699	)
	quietly replace `varlist'=	8253	 if (`csko' == 	60700	)
	quietly replace `varlist'=	8142	 if (`csko' == 	60701	)
	quietly replace `varlist'=	8253	 if (`csko' == 	60702	)
	quietly replace `varlist'=	8140	 if (`csko' == 	60799	)
	quietly replace `varlist'=	7340	 if (`csko' == 	60800	)
	quietly replace `varlist'=	7340	 if (`csko' == 	60801	)
	quietly replace `varlist'=	7340	 if (`csko' == 	60802	)
	quietly replace `varlist'=	7340	 if (`csko' == 	60899	)
	quietly replace `varlist'=	7300	 if (`csko' == 	60900	)
	quietly replace `varlist'=	7400	 if (`csko' == 	60901	)
	quietly replace `varlist'=	7312	 if (`csko' == 	60902	)
	quietly replace `varlist'=	7313	 if (`csko' == 	60903	)
	quietly replace `varlist'=	7400	 if (`csko' == 	60904	)
	quietly replace `varlist'=	7330	 if (`csko' == 	60905	)
	quietly replace `varlist'=	7300	 if (`csko' == 	60999	)
	quietly replace `varlist'=	8155	 if (`csko' == 	61000	)
	quietly replace `varlist'=	8155	 if (`csko' == 	61001	)
	quietly replace `varlist'=	8150	 if (`csko' == 	61002	)
	quietly replace `varlist'=	8150	 if (`csko' == 	61003	)
	quietly replace `varlist'=	8150	 if (`csko' == 	61099	)
	quietly replace `varlist'=	8150	 if (`csko' == 	61100	)
	quietly replace `varlist'=	8150	 if (`csko' == 	61101	)
	quietly replace `varlist'=	8229	 if (`csko' == 	61102	)
	quietly replace `varlist'=	8150	 if (`csko' == 	61103	)
	quietly replace `varlist'=	8229	 if (`csko' == 	61104	)
	quietly replace `varlist'=	8229	 if (`csko' == 	61105	)
	quietly replace `varlist'=	8150	 if (`csko' == 	61106	)
	quietly replace `varlist'=	8150	 if (`csko' == 	61107	)
	quietly replace `varlist'=	8220	 if (`csko' == 	61108	)
	quietly replace `varlist'=	8222	 if (`csko' == 	61109	)
	quietly replace `varlist'=	8229	 if (`csko' == 	61110	)
	quietly replace `varlist'=	8229	 if (`csko' == 	61199	)
	quietly replace `varlist'=	8221	 if (`csko' == 	61200	)
	quietly replace `varlist'=	8221	 if (`csko' == 	61201	)
	quietly replace `varlist'=	2224	 if (`csko' == 	61202	)
	quietly replace `varlist'=	2224	 if (`csko' == 	61203	)
	quietly replace `varlist'=	8221	 if (`csko' == 	61204	)
	quietly replace `varlist'=	8221	 if (`csko' == 	61205	)
	quietly replace `varlist'=	8221	 if (`csko' == 	61299	)
	quietly replace `varlist'=	8150	 if (`csko' == 	61300	)
	quietly replace `varlist'=	8150	 if (`csko' == 	61301	)
	quietly replace `varlist'=	8150	 if (`csko' == 	61302	)
	quietly replace `varlist'=	8150	 if (`csko' == 	61399	)
	quietly replace `varlist'=	8230	 if (`csko' == 	61400	)
	quietly replace `varlist'=	8231	 if (`csko' == 	61401	)
	quietly replace `varlist'=	8232	 if (`csko' == 	61402	)
	quietly replace `varlist'=	8230	 if (`csko' == 	61499	)
	quietly replace `varlist'=	8290	 if (`csko' == 	61500	)
	quietly replace `varlist'=	8212	 if (`csko' == 	61501	)
	quietly replace `varlist'=	8212	 if (`csko' == 	61502	)
	quietly replace `varlist'=	7320	 if (`csko' == 	61503	)
	quietly replace `varlist'=	7320	 if (`csko' == 	61504	)
	quietly replace `varlist'=	7324	 if (`csko' == 	61505	)
	quietly replace `varlist'=	8290	 if (`csko' == 	61506	)
	quietly replace `varlist'=	8120	 if (`csko' == 	61507	)
	quietly replace `varlist'=	8290	 if (`csko' == 	61508	)
	quietly replace `varlist'=	8290	 if (`csko' == 	61599	)
	quietly replace `varlist'=	7110	 if (`csko' == 	61600	)
	quietly replace `varlist'=	3117	 if (`csko' == 	61601	)
	quietly replace `varlist'=	7111	 if (`csko' == 	61602	)
	quietly replace `varlist'=	7111	 if (`csko' == 	61603	)
	quietly replace `varlist'=	7100	 if (`csko' == 	61699	)
	quietly replace `varlist'=	8120	 if (`csko' == 	61700	)
	quietly replace `varlist'=	8121	 if (`csko' == 	61701	)
	quietly replace `varlist'=	8121	 if (`csko' == 	61702	)
	quietly replace `varlist'=	8122	 if (`csko' == 	61703	)
	quietly replace `varlist'=	8121	 if (`csko' == 	61704	)
	quietly replace `varlist'=	8121	 if (`csko' == 	61705	)
	quietly replace `varlist'=	8121	 if (`csko' == 	61706	)
	quietly replace `varlist'=	8121	 if (`csko' == 	61707	)
	quietly replace `varlist'=	8131	 if (`csko' == 	61708	)
	quietly replace `varlist'=	8122	 if (`csko' == 	61709	)
	quietly replace `varlist'=	8120	 if (`csko' == 	61710	)
	quietly replace `varlist'=	8120	 if (`csko' == 	61799	)
	quietly replace `varlist'=	7210	 if (`csko' == 	61800	)
	quietly replace `varlist'=	7210	 if (`csko' == 	61801	)
	quietly replace `varlist'=	7210	 if (`csko' == 	61802	)
	quietly replace `varlist'=	7224	 if (`csko' == 	61803	)
	quietly replace `varlist'=	7224	 if (`csko' == 	61804	)
	quietly replace `varlist'=	7210	 if (`csko' == 	61899	)
	quietly replace `varlist'=	8281	 if (`csko' == 	61900	)
	quietly replace `varlist'=	8281	 if (`csko' == 	61901	)
	quietly replace `varlist'=	7210	 if (`csko' == 	61999	)
	quietly replace `varlist'=	8280	 if (`csko' == 	62000	)
	quietly replace `varlist'=	8280	 if (`csko' == 	62001	)
	quietly replace `varlist'=	7210	 if (`csko' == 	62002	)
	quietly replace `varlist'=	7210	 if (`csko' == 	62003	)
	quietly replace `varlist'=	7210	 if (`csko' == 	62004	)
	quietly replace `varlist'=	7210	 if (`csko' == 	62005	)
	quietly replace `varlist'=	7210	 if (`csko' == 	62006	)
	quietly replace `varlist'=	7210	 if (`csko' == 	62007	)
	quietly replace `varlist'=	7210	 if (`csko' == 	62099	)
	quietly replace `varlist'=	7210	 if (`csko' == 	62100	)
	quietly replace `varlist'=	8281	 if (`csko' == 	62101	)
	quietly replace `varlist'=	7210	 if (`csko' == 	62102	)
	quietly replace `varlist'=	7210	 if (`csko' == 	62103	)
	quietly replace `varlist'=	8283	 if (`csko' == 	62104	)
	quietly replace `varlist'=	7210	 if (`csko' == 	62105	)
	quietly replace `varlist'=	8280	 if (`csko' == 	62106	)
	quietly replace `varlist'=	8280	 if (`csko' == 	62199	)
	quietly replace `varlist'=	8281	 if (`csko' == 	62200	)
	quietly replace `varlist'=	8281	 if (`csko' == 	62201	)
	quietly replace `varlist'=	8281	 if (`csko' == 	62202	)
	quietly replace `varlist'=	8281	 if (`csko' == 	62299	)
	quietly replace `varlist'=	8281	 if (`csko' == 	62300	)
	quietly replace `varlist'=	8281	 if (`csko' == 	62301	)
	quietly replace `varlist'=	7230	 if (`csko' == 	62302	)
	quietly replace `varlist'=	7230	 if (`csko' == 	62303	)
	quietly replace `varlist'=	8290	 if (`csko' == 	62304	)
	quietly replace `varlist'=	8281	 if (`csko' == 	62399	)
	quietly replace `varlist'=	8282	 if (`csko' == 	62400	)
	quietly replace `varlist'=	8281	 if (`csko' == 	62401	)
	quietly replace `varlist'=	8281	 if (`csko' == 	62402	)
	quietly replace `varlist'=	8281	 if (`csko' == 	62403	)
	quietly replace `varlist'=	7240	 if (`csko' == 	62404	)
	quietly replace `varlist'=	8282	 if (`csko' == 	62405	)
	quietly replace `varlist'=	8282	 if (`csko' == 	62406	)
	quietly replace `varlist'=	8282	 if (`csko' == 	62407	)
	quietly replace `varlist'=	8282	 if (`csko' == 	62408	)
	quietly replace `varlist'=	8282	 if (`csko' == 	62499	)
	quietly replace `varlist'=	8282	 if (`csko' == 	62500	)
	quietly replace `varlist'=	7240	 if (`csko' == 	62501	)
	quietly replace `varlist'=	7240	 if (`csko' == 	62502	)
	quietly replace `varlist'=	7240	 if (`csko' == 	62503	)
	quietly replace `varlist'=	7240	 if (`csko' == 	62504	)
	quietly replace `varlist'=	7240	 if (`csko' == 	62599	)
	quietly replace `varlist'=	8283	 if (`csko' == 	62600	)
	quietly replace `varlist'=	8283	 if (`csko' == 	62601	)
	quietly replace `varlist'=	8283	 if (`csko' == 	62699	)
	quietly replace `varlist'=	9161	 if (`csko' == 	62700	)
	quietly replace `varlist'=	9161	 if (`csko' == 	62701	)
	quietly replace `varlist'=	9161	 if (`csko' == 	62799	)
	quietly replace `varlist'=	5121	 if (`csko' == 	62800	)
	quietly replace `varlist'=	5121	 if (`csko' == 	62801	)
	quietly replace `varlist'=	5121	 if (`csko' == 	62802	)
	quietly replace `varlist'=	5121	 if (`csko' == 	62803	)
	quietly replace `varlist'=	5121	 if (`csko' == 	62899	)
	quietly replace `varlist'=	7120	 if (`csko' == 	62900	)
	quietly replace `varlist'=	7122	 if (`csko' == 	62901	)
	quietly replace `varlist'=	7121	 if (`csko' == 	62902	)
	quietly replace `varlist'=	7230	 if (`csko' == 	62903	)
	quietly replace `varlist'=	7141	 if (`csko' == 	62904	)
	quietly replace `varlist'=	7130	 if (`csko' == 	62905	)
	quietly replace `varlist'=	9312	 if (`csko' == 	62999	)
	quietly replace `varlist'=	8300	 if (`csko' == 	63000	)
	quietly replace `varlist'=	8300	 if (`csko' == 	63001	)
	quietly replace `varlist'=	8310	 if (`csko' == 	63002	)
	quietly replace `varlist'=	8320	 if (`csko' == 	63003	)
	quietly replace `varlist'=	8340	 if (`csko' == 	63004	)
	quietly replace `varlist'=	8334	 if (`csko' == 	63005	)
	quietly replace `varlist'=	8000	 if (`csko' == 	63099	)
	quietly replace `varlist'=	8000	 if (`csko' == 	63100	)
	quietly replace `varlist'=	7230	 if (`csko' == 	63101	)
	quietly replace `varlist'=	7232	 if (`csko' == 	63102	)
	quietly replace `varlist'=	3150	 if (`csko' == 	63103	)
	quietly replace `varlist'=	3150	 if (`csko' == 	63104	)
	quietly replace `varlist'=	9322	 if (`csko' == 	63105	)
	quietly replace `varlist'=	3439	 if (`csko' == 	63106	)
	quietly replace `varlist'=	8000	 if (`csko' == 	63199	)
	quietly replace `varlist'=	8000	 if (`csko' == 	69900	)
	quietly replace `varlist'=	0000	 if (`csko' == 	70000	)
	quietly replace `varlist'=	.	 if (`csko' == 	80000	)

end

